﻿Imports System.Diagnostics.Contracts

Namespace Exceptions
    ''' <summary>
    ''' Defines base object for Exceptions
    ''' </summary>
    ''' <remarks></remarks>
    Public Class FotoliaException
        Inherits ApplicationException


        Public Sub New(message As String)
            MyBase.New(message)
        End Sub

        Public Sub New()
            MyBase.New()
        End Sub

        Public Sub New(message As String, innerException As System.Exception)
            MyBase.New(message, innerException)
        End Sub


        ''' <summary>
        ''' Exception code.
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property Code As String

    End Class
End Namespace
